home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 51 / Amiga Format CD51 (2000-03-10)(Future Publishing)(GB)[!][issue 2000-04].iso / -in_the_mag- / banging_the_metal / qdos / qdos4amiga2 / romsrc / sys / procs3_asm < prev    next >
Text File  |  2000-01-03  |  1KB  |  46 lines
  1. */beginfile PROCS3_asm
  2. ; --------------------------------------------------------------
  3. ; PROCS3_asm - BASIC bits
  4. ;        - last modified 06/08/92
  5. ; QDOS-Amiga sources by Rainer Kowallik
  6. ;    ...some changes by Mark J Swift
  7. ; --------------------------------------------------------------
  8. L066A2:
  9. BAS_CSIZe:
  10.     JSR    L08038(PC)    ;*/undomodify BSR L08038
  11.     BNE.S    L066C4
  12.     SUBQ.W    #1,D3
  13.     JSR    L08028(PC)    ;*/undomodify BSR L08028
  14.     BNE.S    L066C4
  15.     MOVE.W    -$02(A6,A1.L),D2
  16.     EXG    D1,D2
  17.     CMPI.W    #$0003,D1
  18.     BHI.S    L066C2
  19.     MOVEQ    #$2D,D4
  20.     JMP    L07FC4(PC)    ;*/undomodify BRA L07FC4
  21. L066C2    MOVEQ    #-15,D0        ; bad parameter
  22. L066C4    RTS
  23. BAS_CURSor:
  24.     MOVEQ    #-$20,D0
  25.     ADD.L    A5,D0
  26.     SUB.L    A3,D0
  27.     BEQ    L06BE0
  28.     MOVEQ    #$17,D4
  29.     BRA.S    L066D6
  30. BAS_AT:
  31.     MOVEQ    #$10,D4
  32. L066D6    JSR    L08038(PC)    ;*/undomodify BSR L08038
  33.     BNE.S    L066F8
  34.     CMPI.W    #$0002,D3
  35.     BNE.S    L066F6
  36.     MOVE.W    0(A6,A1.L),D2
  37.     MOVE.W    -$02(A6,A1.L),D1
  38.     CMPI.B    #$10,D4
  39.     BNE.S    L066F2
  40.     EXG    D1,D2
  41. L066F2    JMP    L07FC4(PC)    ;*/undomodify BRA L07FC4
  42. L066F6    MOVEQ    #-15,D0        ; bad parameter error
  43. L066F8    RTS
  44. ; --------------------------------------------------------------
  45. ;*/endfile
  46.